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Preface : 
In the previously term we learned how to design a program's 
interface. Such as these application : 


ud Sign Up New acount l = 


The Name Mohamed Ali 
Brithday Date 3/10/2013 
Gender © Male 


Family Number RE sld] sac 


+ The user entered data in the textboxes and chose other 
data, we note the values of these data are different types 
where; 


The Name: represents a Text 

Birthdate: represents a Date 

Type: represents a Boolean value 

The number of family: represents a numeric value 


These values are stored in the computer memory (RAM); to 
deal with these data we must assign a name and a type to it in 
memory, this type depending on the nature of the data 
element stored. 


types 
¢ In VB.net language, there are many Data Types. 


¢ These data types are used to store input values from the 
user or resulting from execution of instructions of the 
program. 
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¢ Some Data Types provided by (Visual Basic.Net) are : 


1) Numerical Data Types; to store Numerical Data : 
a- Integral Numeric Types (Byte — Long - Integer — Short). 
b- Non Integral (Fractional) Numeric Types ( Double — Single — 
Decimal ). 
2) Character Data Types ( String — Char ). 
3) Miscellaneous Data Types are those data that; do not fall under the 
Numeric or the Character types( Object — Date - Boolean). 


the data type 


(Integer); w Lb 
2. A range of val ( nun lu mum value); for 
example age of va or the d 2 (Byte) starts with 


Integral Non-Integral 
Numberic Numberic 


Long (8B-19D) Double (8B - 15D) 
s 


ingle (4B - 7D Bool 2B 
Byte (18) (0-255) | ingle (true or Aen 
assi. NZ 


Integer (4B-10D) Decimal (16B- 29D) 


S 
`i 


Short (2B -5D) 


FD" Where "B" indicates to the "Byte" and "D" indicates to "Digits". 
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Variables and Constant 


The\Variables: 


¢ Variables are reserved places in computer memory (RAM) to 
store values temporarily, these values change during the 
running of program. 


Each Variable has a name and Data type. 


These Data Types are created by declaring variables then 
assigning values to them depending on their Data Types. 


Declaration of Variables : 


^ We use "Dim" keyword to declare the variable. 


Dim VariableName As Data type [= Initial Value] 


Example : 
Dim S_Name As String = "Ahmed" 


T | i 


Variable Name Data Type Initial Value will be 
change during the 
program running 
and it is optional 


Dim F Name As String 


Code means: the declaration of a variable name as (F Name) in memory, it"s 
type is (String). 


Dim Total Price As Single 


Code means: the declaration of variable its type (Single), name as 
(Total Price) in memory. 


Dim Today As Date = #1/25/2011# 


(Complete) 
Code meaning: the declaration of variable with the type 
name as ( 
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They are places reserved in the (RAM) and, have data types. 


You should be declaring the constants and assigning values of 
them. 


These values are a fixed and cannot be changed during 
program execution. 


Declaring Constants : 
+ We use the ( Const) keyword to declare constants. 


Const ConstantName As DataType - Value 


Examples : 


= Const C Name As String = " nyl jas Aes." 


Meaning of code: the constant (C Name) was declared, of data type 
(String) and, its text value " 4 £4». pas ån ll" is assigned during the 
declaration 


= Const Pi As Single = 22 / 7 


Meaning of code: the constant (pi) was declared, of data type (Single) 
and, its numeric value 22/7 or 3.14 is assigned during the declaration. 


= Const BirthDate As Date = #1/25/2011# 


Complete: 
The constant ( 
and, the value 


NOTICE : 


A ^ The double quotes " " are used if the value of variable or constant is 
a string value. 
^ The hashes # # are used if the value of variable or constant is date 
or time. 
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1) Variable or Constant names must begin with a letter or 
underscore (. ). 


2) Variable or Constant names should not contain symbols or 
special characters (e.g.: ?,*, ^, - 


3) Variable or Constant names consist of letters, numbers, and 
underscores (_ ). 


4) Do not use reserved words (Visual Basic.NET Language 
Keywords) such as (single, Dim, As). 


5) It is preferable that the Variable or Constant name reflects 
its content. 


Exercise (1-1) (Reclaring Variables Li Constants) 


Prepare a program using VB.NET | EE Sees etes | 
language that receives a numeric _ | 
value for the radius of a circle, 
and its circumference and area is 
calculated when you press the 
"Command button". 


Note that: area of a circle = mr2 
and the circumference of a circle 
= 21tr where: r represents the 
radius, rt = 22/7 


* Design the window Form. 


* Then open the code window by pressing the button (F7) and, add 
the (Click) event procedures for (Button, Button2). 
- Public Class Form1 


Write the code required to 
calculate the Area of a circle 
using the Event Procedure 
(Button1 Click) 


Private Sub Button1  Click(ByVal sender As Syster 


End Sub 


and, the circumference of a Private Sub Button2 Click(ByVal sender As Systerr 
circle using the Event 


Procedure (Button2 Click) End Sub 
- End Class 
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o Button2 


* In the scope of the 
cz Public Class Form‘ 


event procedure 
(Buttoni Click), type 
the code that calculates 
the area of a circle, and 
display the output in 
label control tool 
(Label2) when you click 
on (Button1) as shown in 


Smaciity dixe scone of clediaration Gov Variables ame] 
(Scmo3snio 3 Exercise (1-2) 


© Private Sub Button1_Click(ByVal sende 
Dim Radius As Single 

Const Pi As Single = 22 / 7 

Radius = TextBox1.Text 
Me.Label2, Text = Pi * Radius ^ 2 


* In the scope of the event procedure (Button2 Click), type the 
code that calculates the circumference of a circle, and display 
the output in label control tool (Label2) when you click on 


(Button2) as shown in 


But in event procedures 
for (Button2), the 
messages inside a yellow 
rectangle are displayed 
alerting (424) that the 
(Radius) and the constant 
(Pi) are not declared, 
although they are 
declared in the scope of 
the Event Procedure 
(Button1_Click). 


End Sub 
d Class 


PrjName'R'isnot declared )2 Click(ByVal sender As Syste 


R = TextBox1.Text 
9 * Label2.Text = Pi* R * 2 


E [Error Correction Options (Shift Alt F10) 


Private Sub Button2 Click(ByVal sender As Sys 


R = TextBox1.TexfNsme Pi is not declared 
Me.Label2.Text = Pi * R*2 
e] 


N 


Error Correction Options (Shift+Alt+F1 0) 


So, to solve this problem 
we repeat the declaration 
of the variable (Radius) 
and the constant (Pi) in 
the scope of the Event 
Procedure (Button2, Click) 


OR 


~8S8wr~ 
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=Public Class Form1 
Private Sub Button1_Click(ByVal senc 
— Dim Radius As Single 
— Const Pi As Single = 22/7 
Radius = TextBox1.Text 
Me.Label2.Text = Pi * Radius ^ 2 
r End Sub 


c Private Sub Button2 Click(ByVal sen 
— Dim Radius As Single 
— Const Pi As Single = 22/7 
Radius = TextBox1.Text 
Me.Label2.Text = 2 * Pi * 
+ End Sub 
End Class 


Created by Y Ekhlas Fekry 


Radius 


www.cryp2day.com = ácLihllàjal3 cilio gigo 


99 Button2 


We declare the variable aaa 


(Radius) and constant => Dim Radius As Single 


(pi) on the level of class => Const Pi As Single = 22 / 7 
© Private Sub Button, Click(ByVal sende 
(Form3) and thus we do Radius = TextBox1.Text 


not need to declare them Me.Label2.Text 2 Pi * Radius ^ 2 
End Sub 

on the level of the event 

procedure for each of © Private Sub Button2 Click(ByVal sende 


Radius = TextBox1.Text 
the command button Me.Label2.Text = 2 * Pi * Radius 


(Button1) or (Button2), as End Sub 
shown in figure 


-End Class 


When you run the program by pressing on F5 to do (Start Debugging), and 
enter a radius, we get the output, as shown in figure 


özl JI à LuoJI öll buccoJl öll à» LaoJI 


28.2600009441376 


We can declare Variables and Constants on a Class level and then, we 
do not need the declaration process at each scope of the Event 
Procedure 


Exercise (1-3) (Declaration of Variables) 


Write VB.Net code necessary to declare the variables we need to 


receive the data that the user entered through a form "New user 
registration Form" by the following : 


clilall àjala cil 
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1) Design a form window as follows: 


Textbox1 Textbox2 


Radiobutton1 


Radiobutton2 


| — 


2) Use the following table to declare variables: 


captions of Control tools 
ms 


3) Add the (Event Procedure), also called (Event Handler) for the button 
(S:suill) by double-clicking on it. 
4) Write the following code: 


4 Private Sub Button1_Click(ByVal sender As System.Ol 
Dim U_Name As String 

Dim U_B_D As Date 

Dim U. Gender As Boolean 

Dim U C F As Integer 

+ End Sub 
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“Ò It is a statement consists of two sides (right hand side and 
left hand side) separated by the assignment operator (=). 


“Ò It consists of taking the value on the right side of the 
assignment operator (=) and storing it in the element on the 
left. 


operator 


Abstract value OR 


(Variable) Value from a (Variable) 


OR 
EN (Property) OR 
(Property) Value from an 


(Expression) 


Number25 —~ Abstract value 
Number2 = Number —> Value from a (Variable) 
Name = TextBox1.Text —* Property 


Variables 


Number = Number /3 —* Value from an (Expression) 


" 


Property > Label3.Text = “ingl pas isa" ——» Abstract value 


NOTICE : 


; -— AN of va n made many times, during the 
execution of the prog 

. The values assigned: s can b stract values, Value from 
variables, property O ) 

. The assignment op sate the arithmetic equality, 
it means "is replaced b where (x) in the left side 
represents the variable or sto: n in the right side represents 
the value. 
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20 oaoaub pawl 


Y**0-YY-V.. >W eu; b 


[2 


dw VI 51,9] sac 


1i Public Class Form1 


| Private Sub Button1  Click(ByVal sender As System.Object, 
REM declration of variables 
Dim U. Name As String 
Dim U . B D As Date 
Dim U Gender As Boolean 
Dim U C F As Integer 


REM Assigning values to the variables 
U Name z TextBox1.Text 
U B D = TextBox2.Text 
If RadioButton1.Checked = True Then T 
U Gender z True Assigning 
End If values to 
If RadioButton1.Checked = False Then the 
U Gender z False . 
End Tf variables 
U_C_F = TextBox3.Text 
End Sub 
-End Class 


Exercise (1-5): Using Variables: 
To modify the form window to appear as follows, in order to display 
the values of variables in a label: 


2U uowh pow 


Y**0-1¥-V 5MaoJIl eub 
253 O Esl 


o Sw 51,91 51¢ 
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Add a control tool "Label5" as follows 


6 wl 51,9] sac 


z Public Class Form1 

Private Sub Button1_Click(ByVal sender As System.Object, E 
REM declration of variables 
Dim U_Name As String 
Dim U_B_D As Date 
Dim U_Gender As Boolean 
Dim U_C_F As Integer 


"—— " 
Declaration of 


REM Assigning values to the variables 
U Name z TextBox1.Text 
U B D = TextBox2.Text 
If RadioButton1.Checked = True iio; T 
U Gender z True Assignment values to 
End If = T 
If RadioButton1.Checked = False Then 
U_Gender = False 
End If 
U_C_F = TextBox3.Text 4—————————— _ Using Variables 
' using variables — 
Me. | abel5.Text = U Name & vbCrLi & U B D & vbCrLf & _ 
U_Gender & vbCrLf & U_C_F 
-/ End Sub 
End Class 


“vbCrLf "It used (_ )Enables writing 


Express the srs ara pat: to create a new lines of code in more 
current peers line. | than one line 


lay 
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NOT.CE : 


variables for the property (Text) and the control (Label5) where: 
1. Variables are separated from each other's by (& vbCrLf &) 


other by the con 
| to create a new line. 


4. Use the symbol C p lir f code in more than 
one line, if the co organize and simplify 
the process of re 


5. ( Me) express the cur 


6. The programmer can use ne I (Rem) in writing 
remarks that can be referred to within the code, it is not 
compiled. 


Precedence) : 


. Applying the process inside the brackets from the inside to 
the outside. 


. Applying the exponent. 


. Applying multiplication or division process from left to right, 
wherever comes first. 


. Finally, the Application of the addition or subtraction process 
from left to right, wherever comes first. 


Ulne [355006 9 
1» Syntax Error ~ ; 4d! ess Yl : 
This happens, when writing code incorrectly. 


Examples 
= Din X As Single 
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The variable (X) was declared but there is a mistake in 
writing the word (Dim) 


= Const X As Single 


The constant (X) was declared but, its value is not assigned 
during the declaration. 


vf This type of error is easy to detect because, the (IDE) 
help us as it does not allow any error of this type. 


2» Logic Error iilis «Usil: 
It happens when we get incorrect results after executing 
the program because of the wrong formulating arithmetic or 
logic expressions 


Example: 
Write the code => label2.text = Pi t Radius ^2 instead of 


The code => label2.text = Pi " Radius “2 to calculate 
the Area of a Circle. 
Si To overcome this type of error, you must review the 
written code, and test the program with data already 
validated. 


3>_ Runtime Error : 

e These errors are discovered when the program is running,. 

e Tt is found in lines of code, where the Assignment Statement 

is written. 

Example: 
When you assign a value greater than or less than the range value 
of Data Type used OR assign a value that is not equivalent (O-:Y)to 
the variable's Data Type . 


ES m G3 Created by V Ekhlas Fekry 


www. oe te com - acl & &jala aysin ago 


—2 c" 
— HÀ 


First: put a Tick (V^) in front of the correct statement and a cross (%) in front of the wrong 
statement for each of the following sentences; 


EN NNNM 
EN One of the advantages of VB.NET is dealing with different types of data. 
One of disadvantage of VB.NET is dealing with different types of data. 


3 All the data entered into the VB.NET program language are stored temporarily in the ( ) 
computer memory. 


All types of data saved in the memory occupy the same storage space. 


5 A good programmer is the one who improves the rationalization of storage space in the C) 
computer memory. 


| 6 | The value of the student's total grades is classified within the integer data types. 
The value of the student's name is classified in the Miscellaneous data types. 


The value of the student gender "male" or "female" is classified within the 
Miscellaneous data types "Boolean". C) 


| 9 | Image of a student can be classified within the character data types. 


The value of the employee's salary can be classified within non-integer numeric data 

C siii dci 
Each data element stored in computer memory occupies a particular storage space and 
a particular range of values according to its data type. 


The data element identifies the storage space it occupies in computer memory and 
2 | knowing the minimum and the maximum for its value. 


The term variables in vb.net means stores in the computer memory, which has type and 
name. 


Declaring a variable in VB.NET means determining its name and data type. ( ) 


15 The declaration of variables in the language VB.NET helps rationalize the use of the C) 
computer memory. 


Declaration of variables is a matter of formality, because VB.NET languages recognize 
the variables and determine the type automatically. 

- The following statement "Dim F name As String" is to declare the name of a 
variable "String" and type "F name". 
The following data element "Dim F name As String" is to declare the name of a 
variable "F name" and type "String." C) 


| 19 | The declaration statement for variables is determined by the variable name and type. 


The declaration statement for the variables is determined by the name, type and fixed 
value. 


"SSCity" variable name is a consider a wrong variable name because it begins with a 


Created by \ Ekhlas Fekry 


www. cryp2day.c com - achbila &jala aysin algo 


"Name" is considered a correct variable name in event procedure level (enrichment). 
"Name" is considered a correct variable name in formlclass level ae ! 
"Dim" is used to declare variables. ) 
The command "Const" is used in the declaration of the variables. ( ) 
The command "Const" is used in the declaration of the constants. 
Constants in VB.NET language are stores of a computer memory which have the name 
and the value that does not change during the running of the program. 
g Constants in VB.NET language are stores of a computer memory which have name 
and value can change during the running of the program. 


The final value of the variable X after the execution the following equation 

* X-312* 4" i (11). 

The final value of the variable X after execution the following equation "X = 3 + 2 * 4" 
is (20). 


Second: Select the appropriate answer to complete each of the following sentences: 
(1) The value of prices of desktop tools can be classified as........... 
a) integer b )non- integer c) miscellaneous 
(2) The value of the names of the subjects can be classified as ......... data. 
a ) miscellaneous b) non- integer c) string 

(3) The type of data element temporarily stored in the computer memory defines: 

a) storage space and the extent of its value 

b) name and storage space 

c) storage space and a storage value 


(4) The right syntax to declare Salary variable is ............ 
a) Dim Salary As Integer b) Dim Salary As Byte c)Dim Salary As Decimal 


(5) The right syntax to declare the city variable is ......... . 
a) Dim City As String b) Dim City As Byte — c)Dim City As Decimal 


(6) The right syntax to declare the variable name F Name is .......... 
a) Dim F Name As Integer b)Dim F Name As String c)Dim F Name As Decimal 


(7) The right syntax to declare the variable Gender is ......... , 
a) Dim Gender As Decimal  b)Dim Gender As Integer c)Dim Gender As Boolean 


(8) The right syntax to declare the variable name F Name is ....... : 
a) DinF Name As String b)DimF Name As String — c) Dim F_Name As Char 


meee «(e ane ao Created by \ Ekhlas Fekry 
0991 gl agga iN cHaLrgo Ja 


www.cryp2day.com - Gclbll éjaly cilio gigo 


j (9) The error that appears after running a program VB.NET language is called ....... n 
a) Syntax Error b) logical Error c) Runtime Error 
b) 


(10) The error that appears while writing a code in a VB.NET language called......... 
a) Syntax Error b)Logical Error c)Run time Error 

(11) The error in the output result in language VB.NET code is called.......... ý 
a) Syntax Error b)Logical Error c)Run time Error 


(12) The final output of the variable X for equation "X — 3 +2 * 4" is ........ á 
a) 11 b) 24 c) 20 
b) 
(13) The final output of the variable Y for the equation "Y = 16 - 12/4 + 2" is 
a) 3 b)11 c)15 
(14) The declaration statement of a variable "Dim X As String", means the declaration about 
a) A variable named X and type of character String. 
b) Variable called string and its type X. 
c) Unknown variable has no name and its type String. 


(15) The correct statement to declare a non-integer variable named Y is ..... . 
a) Dim Y As Decimal b)Y As Decimal c)Dim Y = Decimal 


(16) Choose the correct name of the variable "name of the student": 
a) st name b) st name c)Name** 


(17) Choose the correct name of the variable "address of the employee": 
a) SCairo b)E Address c) (Address) 


(18) The names of the following variables are correct in level of class form1 except: 
(enrichment) 


a) St text b)Text C) st text 


(19) On declaration of a mathematical constant 7 , we use the code ......... $ 
a) Dim Pi As Single b)Dim Pi As Single = 3.14 c)Const Pi As Single = 3.14 


(20) On the declaration of constant gravity acceleration, we use the code ...... ‘ 
a) Dim g As Single b)Const g As Single=9.81 c)Dim g As Single = 9.81 


(21)The declaration of variable number of family members C_Family with initial value of 2 is: 
a) Dim C Family As Single = 2 
b) Const C_Family As Integer = 2 
c) Dim C Family As Integer = 2 

(22) If there is an error in the result of a rectangular area calculation in a program, this error is 


considered ..... 


a) Syntax Error b) Logical Error c) Run time Error 


(23) The error message that appears when you write the code "Dimension X As Byte", can be 
classified as ..... . 
a) Syntax Error b) Logical Error c) Run time Error 


(24) The final output of the equation " Y = 12-2 * 4/2" is ......... 
a) 12 b)7 c)9 


(25) The final output of the equation " Y = 12 — (2 + 4) / 2 " is ....... š 
a) 12 b)7 
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Chapter TWo 


Branching 
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In this chapter, we will learn the branching; where it is used to execute a 
sequence of steps depending on the result of the condition or the answer of 
the question. You will find that writing code is just translating an algorithm into 
a programming language. 


If conditional Expression then 


If Cnditional Expression then Code 


Code Else 


End If Code 
End If 


The syntax of (If... Then) statement 


If the result of conditional expression 


If conditional Expression Then is "True", the statement after "Then" 
Code is executes until "End If", and if the 


End if result is "False" , executes after "End 
If" 


Example : 


If X > = 50 Then 
t 
Msgbox ("cals") 


The End If 
condition 


In this example, if the result of condition is (True) it displays message box 
"CU" then executes the statement after (End If), but if the result is 
(False), it executes the statement after (End If). 


9 A conditional expression is part of a program code; its result can be 
(True) or (False) depending on the value of: (a Property or a Variable 
or another piece of data in the program code). 


Ach bu jaa cili áo d 


Created by X Ekhlas Fekry 
04811 gf 319/41 iN eigo vale Gybill Joa 


www.cryp2day.com - ácLihllàjal3 cilio gigo 


9€ |t consists of three parts : logical operator preceded by (= (352) 
an abstract value ,a value of a variable or constant or a result of a 
mathematical expression that is compared with an abstract value 
,a value of a variable or constant or a result of a mathematical 
expression, 


Conditional Expression Example of 


Before After logical conditional 


logical logical operator : 
operator expression 
operator 


Variable > (greater than) Abstracted IfA>5 
< (Less than) value IfA<5 
A 
value 


<= (less than or 
Vale oie equal) Wage 
constant >= (greater than constant 


or equal) 


a value from a value from - 
expression - (equal to) expression If A^2 - B/c 
. a value from _ 
Variable = (equal to) expression IfB=A+3*2 


Property = (equal to) Logical value | RadioButton1.checked 
Prapapt " (not I) Property If TextBox1.text < > 
parey á iani: TextBox2.Text 


Exercise (2-1): 

Write the steps to create a program 
in which we enter student's score, then 
the message "Successful" appears in a 
message box if the score is greater 
than or equal to 50, when you clich 
on the button "Result" 
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This (If) statement can be written, in one 
line without writing (End if) 


Private Sub Button! Click 
Dim x As Single 
x = TextBox1.Text 


If conditional Expression Then 
Code 
Else 
Code 
End if 


Private Sub Button1_ Click 
Dim x As Single 
x = TextBox1.Text 


If x >= 50 Then 
MsgBox("Successful ") 
End If 


End Sub 


Exercise (2-2): ( start) 
/ Enterx / 


False True 
Mr Msgbox "gat" 


àclih. 
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Private Sub Button1 Click 


Dim x As Single 
x = TextBox1.Text 


Note: If x >= 50 Then 


This (If) statement can be MsgBox ("<>") 
written, in one line without 
writing (End if) 


MsgBox ("=") 


End Sub 


Private Sub Button1_ Click 


Dim x As Single 
x = TextBox1.Text 


If x >= 50 Then MsgBox (">t") Else MsgBox ("12") 


Create a new project that receives inputs in the variable ( N ) through 
a textbox, and displays the message ">33 êl" or "ies j$ aï M" in a 
MessageBox. 


N 
Divisible by 2 


Msgbox "(5295 e$ JI" 


Created by X Ekhlas Fekry 
ogå ill gf ayga İN cHiLrgo vale Guh Joa 


www.cryp2day.com - ácLihllàjal3 ĉio gägo 


Private Sub Button1 Click 
Dim N As Single 
N - TextBox1.Text 
If N Mod 2 = 0 Then 
MsgBox ("59 55 äl") 
Else 
MsgBox ("c2 5 ei ji") 
End If 
End Sub 


. Where (Mod) is a mathematical operator that computes the remainder 


The (Select ...Case) statement is used in the branching depends only on the 
value of one variable and there are many conditions, which reduces the code 
and makes it easier and clearer 


The syntax of (Select ...Case) statement : 


Select ...Case Variable 
Case valuel 
Code 
Case value2 
Code 
Case value3 
Code 


Case else 
Code 


End Select 
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Exercise (2-4) 
on entering the temperture thruogh the TextBox (TextBox1) and then clicking 
the "Test" button the phrase "above zero" OR "below zero" OR "equal zero" 
is displayed 
through 
(Label2). Try 
to draw a 
flowchart 
compatible 


with (Select 
Output Output 


" M A! aU " ua" 


Private Sub Button1 Click(ByVal sender As System. 
Dim degree As Single 
Try 
degree = TextBox1.Text 


Select Case degree 
Case 0 
Label2.Text = "jie (5 glad 8 ) jl da a" 
Case Is <0 
Label2.Text = " Żal Gai byl jal! As jan 
Case Is » O 
Label2.Text = " Żal ($58 5 | yall åa" 
End Select 


Catch ex As Exception 
Label2.Text = "" 
MsgBox("288 ase. (Jil ") 
TextBox1.Text = "" 
TextBox1.Focus() 

End Try 
End Sub 
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The previous flowchart, illustrates more than two possible paths 
(branches) out of the decision point. 


This is a comparison that evaluates a question about the value of 
variable (D), and according to this value the branching of code differs. 


Exercise (2-5) 


In geography, you have learned many concepts on Galaxies, planets and 
stars ... etc. 

It is required that when selecting one of the elements of a ComboBox, 
the corresponding definition appears in the label. 


ComboBox Ses AS eed lat) A3 Là 


dalius g 5yh y> Tg spia giy T iaa iu 
dia uid pÂ (are o4 dci) yr g diga 


Label2 


Required: 


Type the necessary code, so that on selecting one of the elements of a 
ComboBox, its definition appears in the Label2. 


Instructions 
. Setthe value of the property (AutoSize) for the (Label2) to "False". 
. Add the following items (Galaxy - Planet — Moon - Star - Meteoroid 
á jäl- falling star e!) for the (ComboBox) control through the 
property (Items). 
. Type the code in the (SelectedIndexChanged) event procedure for the 
control (ComboBox) as follows: 


ücliall àjala cil Sic 
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[| Private Sub ComboBoxi SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.Event ] 
Select Case ComboBox, SelectedIndex 
Case 0 
Label2.Text = "elyyls Jia Mls plo VE aaliceod! agl o $$ coloni" 
Case 1 
Label2.TeXt = "ai cuj pæ yo ljg Aigo doing dy) > Ya spö giu V pu pur” 
Case 2 
Label2.Text = "ade hilull puouill yo yuSey tuill Jai a hiy uS yo lax hol pino pou" 
Case 3 
Label2. Text = "ijs lego gu pile cas pau” 
Case 4 
Label2.Text = "syal wall liol sic jo oe pS alo pur” 
Case 5 
Label2.Text = "aujga plu ài. ple slol (99 S209 yil dy» shaill 99 pus alo Solow pau 
Case Else 
MsgBox(" p.alaodl 151 Jul soy") 
End Select 


End Sub 


Notice: 
We have depended, in writing of the code, on the order of the elements 
within the tool (ComboBox) where the first item has an (index) O, the 
second item has an (index) 1 and the third item has an (index) 2, .....and, 
SO On. 
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(1) Answer the questions with the help of the following 
code: 


If X >= 50 Then 
Msgbox ("successful ") 
End if 


A) Message box is shown with the text "successful" when : 


A) If the value of X equals 50, the result of executing code is 


B) If the value of X equals 62, the result of executing code is 


(2) Answer the following questions with the help of the 
general syntax of the "IF ... Then" statement: 


If (conditional expression) Then Cod 1 Else Code 2 


A) Write conditional expression testing the value of the variable 
Y if it is less than 0. 


B) Replace the "Code 1" in the general syntax with a code that 
Shows the text "a negative number" in the message box. 


C) From the general syntax of statement (If .. Then .. Else) that 
if the conditional expression is "True", then ............ ss 
is executed and if the expression is not achieved, then............... 

is executed . (Complete) 
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(3) Answer the following questions with the help of the 
screen and the code in the table: 


Private Sub Buttonl Click: 


Dim x As Single 

x = Me.TextBoxl.Text 

If x >= 50 Then 
MsgBox ("a>") 

End If 


A) The purpose of the program is: .......... ss 


B) The code is executed if the event ....................... occurred on 
...... control tool. 


C) Type of variable X in the code is sss 
D)"Me." In the code refers to ............. s 


E) We input the value (50) in the text box, the result of the 
implementation of the code is: ........... sss 


(4) Complete the following table with the required code, 
using the general syntax conditional statement "IF .. 
Then .. Else" 


If Conditional Expression Then 


Code 1 
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So as to show a message box having the word "=" if the 
value of the variable "Country" is equal to the "Egypt" or 
message box having the word "Egypt" appears: 


statement 


Conditional expression 


Result of achieving the condition 
"True" 


Result of not achieving the condition 


"False" 


(b) Answer the following questions with the help of the 
code: - 

Dim x Às Single 

x = Me.TextBoxl.Text 

If x >= 50 Then 


" H 
G) If the value of X = 49, the result MsgBox ("pli") 
of executing Code is : Else 
MsgBox ("eai ;") 


H)Rewrite the code of "Block If" to End If 
appear on only one line. 


F) If the value of X = 76, the result 
of executing the code is: 


(6) After studying the code, answer the following 
questions: 


A) Modify the code so that the " s Dim N As Long 
<>)" text appears in a label N = Me. TextBoxl Text 
"Label2" and "233 ail)" text If N Mod 2 = 0 Then 
appears ina label " Label2" instead MsgBox ("+5 ) pä j=l") 
of the message box. Else 
MsgBox ("g3 jei pi jml") 
End If 
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B) Replace the type of variable "N" to be "Integer. 


(7) The following code receives any number of a 
TextBox, and stores it in a variable, and then tests 
its value. If the number is even or odd, a Messagebox 
appears showing that. 


Required: Retype the code after discovering the errors and 
correcting them so that the result of its implementation is 
right. 


Dim X As Integer 
N = Me.TextBox1.Text 
If N Mod 2=0 
MsgBox(" 52.5) e") 
Else 


MsgBox ("528 ei) ") 


(8) After studying the following code, answer the 
following questions: 


MSS OEE Created by V Ekhlas Fekry 
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Private Sub Buttonl Click(ByVal sender As Syste 
Dim degree As Single 
Try 
degree = Me.TextBoxl.Text 
Select Case degree 
Case 0 
Me.Label2.Text 
Case Is < 0 
Me.Label2.Text 
Case Is » 0 
Me.Label2.Text 
End Select 
Catch ex As Exception 
MsgBox ("sis Jsi") 
Me . TextBox] . Focus () 
Me.TextBoxl.Text = "" 
End Try 


End Sub 


A) The purpose of the code is 


C) The code is executed when the event................... 
control tool.. .................... 


D) Type of variable "Degree" :is .................. 


Q9? 


S Created by \ Ekhlas Fekry 
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Chapter Three 


Looping & Procedures 


Created by \ Ekhlas Fekry 


Preface: 
In this chapter, you will learn how to repeat a set of statements many 
times (which is called Looping) using (For... Next) and (Do... loop 


Using ( For ....Next) statement: 


It is one of the limited loop statements used when we want to repeat a 
code for specific number of time. 


E The syntax of the (For...Next) statement | 


For Variable = Start Value 7o End Value [Step Add Value] 
VB code 
Next [Variable] 


Counter 
Variable 


Numeric values 


» The (For...Next) statement should start with the Keyword (For) and 
end with the Keyword (Next). 


"Variable" is the name which represents the counter and its type must 
be numeric (integer or decimal). 


"Start Value" is the start value of the counter or the beginning of 
repetition is a numeric value. 


"End Value" is the value of the end of the counter and the end of the 
repetition is also a numeric value. 


"Add Value" is the increment value of the counter or value over the 
counter until it reaches the end value. 


"Code" is one or more commands to be replicated between the 
beginning of loop (For) and its end (Next). 


The statements (VB code) are repeated inside the loop until the 
nter value reaches the End value. 


If the value of the increment is positive 1, it can be dispensed with 
writing (Step AddValue) as the default value to increase the counter 
positive 1. 


' Typing a variable name counter next to "Next "optional. 
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Í Exercise (3-1) 


Design the following form | 
window, to have the numbers — 
from 1 to 3 displayed in the | 
Messagebox on pressing on the | 
button "View numbers from 1 to | 


35 


Y WII) uo laced u2j6 


Dim M As Integer 

For M=1To3 
MsgBox(M) 
ext 


End Sub 


ars displaying the 


printnumbers 
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www.cryp2day.com - ácLhllàjal3 ilio gigo 


| Exercise (3-2) 


Modify the code in the previous 
exercise to display the numbers 
from 1 to 3 in the (Textbox ) : 


Dim m As Integer - 
Me.TextBox1.Text =" This code to clear the 
content of textbox 
For m = 1 To 3 
TextBox1.Text = Me.TextBox1.Text &m € 
Next oan — 


To display each number in a new line : 


1 
2 
3 
This code to delete the 
Dikim As Tiiger Y 
Me.TextBox1.Text = '" | 


For m = 1 To 3 


—À» TextBox1.Text = Me.TextBox1.Text & m & @CrLf) 


Next 


String constant used to add: the (enter key) symbol and a 
new line 


VbCrLf = Visual Basic Carriage Return Line Feed 


GIES Created by V Ekhlas Fekry 
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— VB.Net _ 3" Prep E 


a! Formi = Lo 2€ 


Exercise (3-3) : 


Print the multiplication table of 3 in a edis - 
TextBox): Eis 
3Jx5—15 
n 3x6-18 i 
Dim M, product As Integer 3x7=21 
. * 3x8—24 
Dim str As String 3x9—27 
3x10—30 
Me.TextBox1.Text = "" 3x11=33 
3x12=36 T 
For M - 1 To 12 
str=3 & "x" & M & "=" 


Product = 3 * M 
Me.TextBox1.Text = TextBox1.Text & str & Product & vbCrLf 
Next M 


Notice: 


* The variable (product) is declared; to store the multiplication product; at 
each time the variable (M) changes its value. 


4 The variable name (str) is declared; to store the multiplication sentence 
(3x12 or 3x2- ......etc ) as a string, at each time the variable (M) changes 
its value. 


* You can write the code without using these variables as follows: 
Dim M As Integer 

Me.TextBox1.Text = "" 
For M = 1 To 12 
Me.TextBox1.Text = TextBox1.Text & 3 & "x" &M & "=" &3 * M & vbCrLf 


Next m c Y 
The multiplication i A 
product 
sentence 
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| Exercise 3-4 + “a nup 7m ug ~A 


Print the multiplication table of any | 5x1=5 
number you enter in the (TextBox): ae Ball date ay 


5x4=20 
5x5=25 
5x6=30 
5x7=35 
5x8=40 
5x9=45 
5x10=50 
5x11-55 
5x12-60 


Dim M, product, NUM As Integer 
Dim str As String 


— NUM = Me. TextBox2.Text^ 


Me.TextBox1.Text = "" 


For M = 1 To 12 


str =NUM& Mat & M & wor 
Product NUM * M 


Me.TextBox1.Text = TextBox1.Text & str & Product & vbCrLf 
Next M 


Control the start value . end value and Step = 
increment in (For .... Next) statement 


Examples : 


For I =1 To 10 Step 2 


To display the odd TextBox1.Text = TextBox1.text &I & vbCrLf 
numbers from 1 to 10 Next 


For I = 2 To 10 Step 2 
To display the even TextBox1.Text = TextBox1.text & I & vbCrLf 


numbers from 2 to 10 
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To display the 
numbers divisible 
(can be divided) by 3 
from 3 to 20 


For I =3 To 20 Step 3 
TextBox1.Text = TextBox1.text &I & vbCrLf 
Next 


To display the even | For I = 10 To 1 Step -2 
numbers descending TextBox1.Text = TextBox1.text &I & vbCrLf 
order from 10 to 1 Next 


To display the 
numbers from 1.50 to 
0.5 with decremented 
by 0.05 each time 


For I 21.5 To 0.5 Step -0.05 
TextBox1.Text = TextBox1.text &I & vbCrLf 
Next 


To display the 
numbers from 1 to 
the value of B at 
increasing value of C 


For I = 1 To B Step C 
TextBox1.Text = TextBoxl.text &I & vbCrLf 


— Loop) 


Do While Conditional Expression 
VB code 


Loop 


** The (Do While...Loop) is used to repeat a specific code for a several 
times of an unknown end, but based on a specific condition, so it is 
useful if you do not know the number of iterations . 


$* The code between the beginning of the loop "Do While" and its end 
will be implemented as long as the conditional expression is true. If 
the condition is not met for any reason, we get out of the iterative 
loop, and implement the code after the Loop if it exists. 


Exercise (3-5 
Design a project to enter a number in the TextBox , when click the 
button "4418 3f" the Odd numbers are listed in the ListBox in an 
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/ ascending order from one to the entered number. And when click the 
button "4 4j Jel" the Even numbers are listed in the ListBox in an 
ascending order from one to the entered number. 


F 
ag Formi 


1) Press Double click on the 
button "433 à 43e!" then 
write the following 
statements by using 
(For...Next ) or (Do ayo, slasi 
While...Loop ) to display 


the Odd numbers in the ETG] 
ListBox 


Private Sub Buttonl Click(ByVal sender As System.Object, By 
Dim N, i As Integer 
N = TextBoxl.Text 
ListBoxl.Items.Clear() REM iJ! 4a5L3 ¿lja 
gc UU =i 
For i= 1 To N Step 2 | 
ListBoxl.Items.Add(i)!REM poliat! 4a SLi] dod 4 3Lay 


Pd 
1 


| Private Sub Buttonl Click(ByVal sender As System; 
Dim N, i As Integer 
N = TextBoxl.Text 
ListBoxl.Items.Clear() REM iJ! 4a45L5 gl! y 3y 


Do While i <= N 
ListBoxl.Items.Add (i) 


End Sub 
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2) Press Double click on the button "433.55 3361" then write 
the following statements by using (For...Next ) or (Do 
While...Loop ) to display the Even numbers in the ListBox 


Private Sub Button2 Click(ByVal sender As System.Object, By 
Dim N, i As Integer 
N = TextBoxl.Text 
ListBoxl.Items.Clear() REM il! 4a45L5 ¿la 


For i = 2 To N Step 2 
ListBoxl.Items.Add (i)! REM poLliat! do5Las doit ilay 


Private Sub Button2 Click(ByVal sender As System.Object, ByV 
Dim N, i As Integer 
N = TextBoxl.Text 
ListBoxl.Items.Clear() REM il! 4a5L5 ¿13a 


Do While i <= N 
ListBoxl.Items.Add(i) !REM j,aLis]! a4a5l3] dois ilay 


End Sub 


Exercise (3-6) : 


Design a project to receives a 
positive number in the 
TextBox, when click the 
button "4:2 al) slae | g pene " 
the Sum of Odd numbers 
(from one to the entered 
number) are displayed in the 
tool "Label3". And when click : - 
the button "alacY) g sane || 136 cine dl pum 
åa " the Sum of Even l ; 
numbers (from one to the 
entered number) are displayed in the tool "Label3". 


F 
ad Formi 
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1) Press Double click on the button "43254 33e 3! e saxa" then 
write the following statements by using (For...Next ) or 
(Do While...Loop ) to display the Sum of Odd numbers in 
the Label3 


Sub Buttonl Click(ByVal 
N, i, Sum As Integer 
TextBoxl.Text 


Sub Button1 Click (ByVe 
N, a, Sum AS Integer 
TextBoxl . Text 


Ena ub 


2) Press Double click on the button "A3. 5 5!) 3la& I! e saxa" then 
write the following statements by using (For...Next ) or 
(Do While...Loop ) to display the Sum of Odd numbers in 
the Label3 


| Private Sub Button2 Click(ByVa Private Sub Button2 Click(ByV; 
Dim N, i, Sum As Integer Dim N, i, Sum As Integer 
aia N = TextBox1.Text 


N 


N m m m = = = P 


Do While i <= 
Sum Sum 


ac X2 


For i = 2 To N Step 
Sum = Sum + i 


————— d 


Loop 
| Label3.Text 


) rrr - 


I 
I 
I 
i 
! Next 
\ Label3.Text = Sum 


End Sub 
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When you add a new form window, a new class is created as Form1. 
Within the scope of this class we declare: 

1 - Event procedures. 

2 - Variables. 

3- Constants. 


pH Bas s 
Priva = B. Q ed _ClickOByVal sender As Syste 


| 1 o 955,3JT slacvl ye 
mo. s Integer 
Labell.Text = "" 


For i = 1 To 10 Step 2 
Labell.Text = Labell.Text & " " & i 
Next 
End Sub 


Private Su& Button2 Click "n sender As Syste 


' 10,5Jl 1 4o 4.5; 
Di As Integer 
Label1.Text = "" 


For i = 2 To 10 Step 2 
Labell.Text = Labell.Text & " " & i 
Next 
End Sub 
—End Class 


In the previous code, we can notice the declaration of the following 
. "Class" is under the name (Form1): 
. "Variables" are under the names (total , i ): 
. "Event procedures" are under the name of (Button1 Click, 
Button2 Click:) 
ES - co 


avgi 5314cMIl Wo cs abal slacVl (257 
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Procedure 


A set of commands and instructions under a name, can be recalled by that 
name, to implement them, and create a (Sub) if we have a set of 
commands that are frequently used in more than one place in the class 


NOTICE 


Procedures must be called by their names. 


Calling a procedure causes the program to execute procedure's statements 
or code. 


Variables and constants, that can be declared either within the scope of 
the (Event procedures) or within the (Class). 


^ You can declare the Procedures, this declaration is done only once, but you 
recall the procedures many times from anywhere in your program. 


The tumes OF Procedures 


There are two types of procedures in Visual Basic .NET: 


1. Sub procedures(.se 4 «! »») 
2, Functions (43!) procedures. 

% Sub procedures do not return a value (i: 2522), while Functions 
return a value. 


Declaration of a Sub Procedures 


You can declare a Sub procedure in a class; if we had a code that will be 
repeated in more than one place in this Class; as well as for the 
organization of this code, and so it will be easy to read and understand. 
And then modify it if necessary. 
Where: 


1) "Name" reflects the name of 
the procedure. 


Sub Name (Parameters) 
Code 

2) "Parameters" reflect the End Sub 

values that were used inside 

the procedure code that are 

used on recalling the 


procedure. 


2 Declaration Syntax : 


3) "Code" is a set of orders and instructions carried out on recalling the 
procedure (Sub). 
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Exercise (3-7) : 
= Public Clas - 
Su ShowOddOrEven A Declaring a (Sub) 
Dim 1 Å Procedure 
Labell.Text = "" r m 
Fori =() 6 10 Step 2 Starting value o 
Labell.Text = Labell.Text & " " &i the repetition 


Next 
End Sub 


Code executed when you call 
the (Sub) procedure 


Private Sub Buttonl Click(ByVal sender As Sys 


'10 Los Aaa. s jl alae Y! as e - 
ShowOddOrEven() Calling a (Sub) 
Procedure 


End Sub 


Private Sub Button2  Click(ByVal sender As System. 


' 10 is] cj ån jill alae YI os e - 
ll 
x rocedure 
End Sub 


*- We declared a procedure called (ShowOddOrEven) that contains the 
repeated code. 

$ The procedure is executed by typing its name in any other procedure 
within the class, such as typing its name in each of the event 
procedures (Button1 Click) and (Button2 Click). 


LI ACY YO sc | Yogi AALY yot 


13579 


NOTICE : 


When testing the previous program, we find that both buttons, the 
(423.551 alse) Gale ) button and the ( 4 all sae Y! a e ) button; when 
clicking any of them, give the same result (1 3 5 7 9 ), because the 
starting value of the iteration (repetition) in both procedure has the 
same value 1. 


Lb déjab Gl 


ac all öjab öl S40 (Gish 
698,11 gi 229,244 cHiigo cole Gibill Joa Create by 
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Exercise (3-8) : 


** To solve the previous problem, the procedure (ShowOddOrEven) 
must receive the values (1) or (2) on recalling it. .this value is used 
to specify whether the odd numbers will be displayed or the even 
numbers will be displayed. So we add the variable (Start) that will 


be called later. 


3 Public Class Form2 
Sub ShowOddOrEven(By 
Dim i As Integer - 
Label1 Iext =" Declaring a Parameter 
without "Dim" 


Using a Parameter 


** In figure, a sub Procedure of the name (ShowOddOrEven) has 
been declared and a Parameter named (Start) has been also 
declared. And used in the code to specify the starting value of the 
iteration (repetition). accordinglv it disolavs odd or even numbers 


Private Sub Button1_Click(ByVal sender As Sy 
REM 10 4 2 ce à» 5) ae Y! a x 
ShowOddOrEven(2) . 
End Sub Setting an Argument value 


Private Sub Button2 Click(ByVal 
"10 = 1 o ao jill alae Y! oa 
ShowOddOrEven(1) 

End Sub 


Crins coo Plyaj yis " 


Pails yas) yoyo a 
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You can develop the sub Procedure of name (ShowOddOrEven) that 
receives the start value and end value in the iteration (repetition) 


Public Class Form1 
L^ Sub ShouOddOrEven(By Vel Stat As Integ) ByValÍastValue As Integer 


Dim i As Integer 


TextBox3.Text 2 — Declaring the 
Fori €SterpTo (Lost Valug Step 2 parameters 


TextBox3. Text = TextBox3: 
Next 
End Sub 


Using the parameters 


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As Syst 
REM 10 cia 2 + e il ole Tos e 


DUDNOUUICNEVORES 20) Calling the procedure 


End Sub (ShowOddOrEven) 


Private Sub Button2 Click(ByVal sender As Syst ct, ByVal e As Syst 
' 10 > 1 oe 4p jill alae Yl os e 
ShowOddOrEven(1, 10) 


End Sub 


Declaration of a Function g 


Function is a set of commands under a particular name that should express 


its task. It is applied to Parameters and Returns a value 


D Declaration Syntax : 


Function Function Name (Parameters) As Data Type 
Code 
Return Value 


End Function 


Where: 

1) "Name" expresses the name of the function. 

2) "Datatype" identifies the type of the returned value of the function. 

3) "Parameters" represents the parameters that will be used in the code. 


üclibll ájala öl Aio Gubi 
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4) "Code" is a set of commands and instructions that will be executed on 
calling the Function. 
5) "Value" is the returned value by the function. 


Exercise (3-9): Calculate the sum of two numbers: 


1) Design a Form window as shown in figure. 
2) Open the Code Window, press — ** re o 
(F7) then type this Code JÙ sacl 


The Data type of the 
value returned by the 
function 


Declared the (Sum) 
Function 


Function Sum(ByVa&First As Single) ByVa( Second As Single) As Single 


Declared of the parameters 
Dim total As Single 


used in code 
total = First + Second 


Return total 


- End Function 


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As S 
Dim x As Single = TextBox1.Text 
Dim y As Single = TextBox2. Text 


Label4 Text = Sum(x, y) Calling the function 


- EndSub 
- End Class 


The code window where the function (sum) is declared and calling the (sum) 
function by Create an event procedure for Button1, 
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NOTICE : 


*- We declared the (Sum) Function; of Data Type (Single) that receives two values 
from the function variables (First and Second). 

*- A variable named total have been declared of type (Single). 

™& The sum of the two values First and Second will be assigned to the variable total. 

4 After the function executes, the return statement sends a value back to the 
statement and it is assigned to total. 

*- The value total is stored in the name of the function (Sum) as will be seen when it 
is called. 


lxenmenmioxere 9 


1) Variables: We can assign values to Variables; during the 
declaration and the execution of the Program instructions, as 
well as using these values stored. 


2) Constants: We can assign values to Constants; during the 
declaration only, as well as using these values stored. 


3) Functions: We cannot assign values to Functions, but function 
can be called and returns a value in the light of the values 
assigned to the function, as well as using this value stored. 


NOTICE: 


+ It is preferred when naming Functions; give names related to 
their functionality. 
+ You can: 
1. Declare a Function. 
. Determine its Parameters. 
. Specify the Function type. 
. Write Code within this Function. 
. Return a value using the Return statement. 
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NOTICE : 


Sub Procedure Function 


begins with a (Function) statement 


All functions must be written on the 
right side of the assignment to get the 
results of these functions 


are not used in the assignment 
statement 


Parameters given to sub 
Procedure can be (an abstract 
value or a variable or a constant 
or a function) 


Also, Parameters given to Function 
can be (an abstract value or a variable 
or a constant or a function) 


The Event Procedure is MsgBox () considered a function 
considered a (Sub) Procedure. 


It has not data type It has data type 
Sub ShowOddOrEven(ByVal Start As Integer 
(By eger) Function Factorial(ByVal Number As tege Integer) 


O 


A The code is executed when you 
press sos on control tool......... 


. "Dim" is used to declare (variable — Din M As Intege 
constant) with type....... For M 2 1 70 3 


C. The variable name used in the MsgBox (M) 
iterative loop is............. : 
Next 


D. The starting value of the iterative 
loop is ........... , the end value is .... 
and the value of increment is....... 


Play 
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E. Implementation of the iterative loop stops when the value of variable 
M reaches.. .......... ; 


F. The code that is repeated is. .................. 


Private Sub But Repeat Click (ByVal sender As System.Opject, 
Dim m As Integer 
Me.Lebell.Text = "" 
For m-5 To 9 Step 2 
Me.label1.Text = Me.labell.Text & m & vbCrLf 


(The required in line number 7) 
MsgBox ("a5 2) 441") 
End Subj 


(A)The purpose of the code is: 


(B) the code is executed when the event ................... ; rol tool .............. 
(C) to declare the variable m , the command ...................... 

(D) The loop statement used is ............ sss sss 

(E) The code to be repeated is ....................................... 

(F) The purpose of the use of concatenation operator & x a the statement 
(Me.labell.Text = Me.labell.Text & m) is. ....................... 

(G) Type the necessary code to display the final value of the variable M after the 
execution of the iterative loop in a message box: 


Dim n, product As Integer 
Dim str As String 
Me.lextBox1.lext—'"" 
For n = 1 Io 12 
Str=3&"x"&n&"=" 
product = 3 * n 
Me. TextBox1.Text = Me. TextBoxl1.Text & str & 
product & vbCrLf 
Next n 
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B. The purpose of the code (Dim str As String) is to declare a string variable named str. 
(True - false) 

C- The purpose of the code (product = 3 * n) is assigning the result of multiplying 3 by 

the variable n to the variable product. (True - false) 

D- The purpose of the code (product = 3 * n) is assigning the result of multiplying 3 by 

the variable product to the variable n. (True - false) 

E.The purpose of the code: 


Me.TextBox].Text = Me.TextBox].Text & str & product & vbCrLf 
is assigning the value of the string variable "str" and the value of the variable 


"product" as a value for the property "text" for TextBox1. (True - false) 
F. The purpose of the code part "vbCrLf" is to transition to a new line. (True false) 


Required: Modify the code to have a multiplication table of ( 7 ) so that the result 
will be in a TextBox. 


7x$z35 
7x7=49 
7x9=63 
7x11=77 

Dim n, product As Integer 

Dim str As String 

Me.TextBox1.Text = "" 

For n=1 To 12 


Str=4&"x"E&n&"=" 

product = 4 * n 

Me. TextBox1.Text = Me. TextBox1.Text & str & 
product & vbCrLf 


Next n 
End sub 


Required: Correct the four errors in the code, until we get the correct result of the code 
execution in the table. 


iclih. 3 cili sio (Gui 
O94 ill gi ayga iN caligo vale dirhaill Joa 


www.cryp2day.com - ácLhllàjal3 il; sio gigo 


Dim n, product As String 
Dim str As String 
Me.TextBox1.Text = "" 


For n = 1 To 10 Step -1 ino 
Sr-9&"x"&n&"-" 


product — 9 * n 
Me. TextBox1.Text = Me. TextBox1.Text & str & 
product & vbCrLf 
Next str 
End Sub 


Required: In the following table, complete using the necessary code to get the 
correct output after running the program . 


Din m, p+ - NUM As Integer 
Dim str As String 


cfd yal Jom s d 


NUM = Me, TextBox?. Text 


Me, TextBoxi. Text = "" 
For m = 1 To 


z NUM & "x" Gm & "Sy 
product = NUM * m 
Me. TextBox Text = Me.TextBoxl.Text & str & product & vbCrLf 
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For I = 1 To B Step C 
Me.TextBox1.Text = Me.TextBoxl.Text & I & vbCrLf 
Next 
A- The purpose or OC CODE aad Rdp6R ule REDI M UE N 
B- The name pf the counter variable...............................ss : 
C- The iterative loop begins with the value........................................ 
D- The iterative loop ends with the value...........................esessss 
E- the value of the increment of counter......................... 
F- The purpose of vbCrLf is............................ 


Dim N, i As Integer 
TextBox1.Text 
ListBoxi1.Items.Clear() map ade esl 


Do While i <= N 
ListBox1 .Items .Add (i) 
i+2 | is sus | 


is siasi | 


Loop 


Required: 

(1) The loop statement in the program is.............................. sss 

(2) The purpose of the code (I = I + 2) in the line before the last 1s............................. ] 
(3) The purpose of the Loop is: .... 

(4) Select the right choice to determine the nature of each part of the line of code 
components: 


ListBox1 . IT tems . Clear y} 


O. Sai ŝiaj 


O. xa 
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Dim N, i, sum As Integer 
(A)The purpose of the code N = TextBox1.Text is N = TextBox1.Text 


i=1 

Do While i <= 
sum = sum 

E uS : i =i +2 

(D) The sum of odd numbers is displayed in the text box when lion 

we get to a number larger than the positive one that has been 


entered in the control tool and that was assigned RUE 


Question 
The procedure is a set of commands and instructions that are repeated for specified 
number of times. 
The procedure is a set of commands and instructions under a certain name, and 


When you recall this name, these commands and instruction are implemented. 
The purpose of the use of procedures is repeating typing a specific code several 
times in the program. C) 
When we have a specific code that we want to be replicated in more than one place 
in the class, we use the "Function" 
The group of Commands and instructions that are placed under a name, when we 
implement them, they return a value. we call this action " procedure ". 
The group of Commands and instructions that are placed under a name, when we 
implement them, they return a value. We call this action " Function ". 
When we have a specific code that we want to be replicated in more than one place 
in the class, we use the "Procedure". 
Parameters are used to receive values from outside the procedure on recalling it. 


() 
() 


When you recall a procedure with the name Taxes(0.05), the value between the 
brackets is called Argument. 
When you call a procedure with the name Taxes(0.05), the word taxes is called 


Argument. 
The declaration of a function starts with (Sub) and ends with (End Sub). 


The declaration of a function starts with (Function) and ends with (End Function). 
We resort to the use of the Function if our code results in a value we need. 
We resort to the use of the Procedure if our code results in a value we need. 
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The Function is a set of commands and instructions with a specific name that can 
take Parameters, and return a parameter. 

The Function is a set of commands and instructions with a specific name that can 
take values, and return a value. 

The demerit of the language of VB.Net is that it allows he programmer to declare 
other functions and procedures prepared by him. 


Sub ShowOddOrEven(ByVal Start As Integer) 
Dim i As Integer 
Labeli.Text = "" 
For i = Start To 10 Step 2 
Labell.Text = Labell.Text & " " & i 
Next 
End Sub 
Question 


1 Procedure Name D eee 


Parameter was declared with the name ... and type 


The iterative loop starts from the value .... | eee, | 
The increment value of the iterative loop equals | Sees | 


3 When calling the procedure to execute the code 
starting from the value 


Feedback from the function value. weve 


Function XXX (ByVal YYY As Integer, ByVal ZZZ As Integer) As Single 
Code 
Return RRR 


End Function 


Required 


RI aS 1 eRe) LOREEN! 
| 2 | Type of returned value of the function a a 
= Parameter value that will be used in the code er 


Returned value of the function J ......................... 
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Chapter Four 


Cyber Bullying 


ROS 


Through the internet we can learn — entertain — talk — 
communicate ... but there are many risks that we can be 
exposed to including: 

Getting wrong information. 


Falling prey to some of the aggressors across modes of electronic 
communication. 


Violation of privacy. 
Identity theft. 


Getting our account stolen (on the social networking sites like 
Facebook or email). 


Subjecting our system to the risk of infection by viruses or spyware, 


or software piracy and others. 


Cyber Bullying definition: 


Cyber bullying is a deliberate aggressive (24x34 ùl s2) behavior from one 
person to another through electronic modes of communication. 


Firstly: The forms of cyber bullying: 
1. Harassment (L3 ail) — iLa) 
. Annoyance (ixl) 
. Embarrassment (z!»»Y!) 
. Intimidation (>) 
. Threat (3:3) 
. Blackmailing 
7. ....etc.... 


Secondly: Electronic media used in Bullying: 


Electronic media is a technology used by the electronic aggressor, and 
they are various including the following 
1. E-Mail (3 55S II pull) 
. Forums (Zia) 
. Instant Message (42) sal! Jiha jl) 
. Blogger (A3 XS! c sailll) 
. Facebook. 
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Thirdly: Forms of Cyber Bullying: 
Forms of cyber bullying include: 


1. Anonymity: 

The use of pseudonyms (aliases) to hide e-aggressor's identity for 
impunity. 

. Harassment: 
It is aggressive messages directed against one or more persons. 

. Cyber stalking: 
It is a form of electronic harassment where the aggressor 
frequently traces and chases a particular person in all electronic 
media. 

. Haming: 
It is a publication of hostile and vulgar words against one or more 
through a media and electronic communication 

. Outing: 
It is a dissemination of information about a specific person or 
more abusively. 

. Exclusion: 
It is to ignore one or more persons through the electronic media. 

. Cyber threats: 
It is an email or e-message carrying a threat and intimidation to 
one or more persons. 


Fourthly: How to protect yourself from Cyber Bullying: 


By following the instructions below: 
Do not share a password with anyone. 


Make a password that is difficult to predict. 

Don't publish (post) (54) any private data. 

Avoid deleting Cyber bullying messages. 

Don't interview (4584) anyone you know via the internet. 

Be careful! Don't send messages when you are angry. 

Inform (>l) your parents with what annoy (4&2) you when you 
use the Internet. 
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8. The download of software from the Internet should be done under 
the supervision (=l »5!) of your teacher or your parents. 


is 


First: State whether the following statements are (true) or (false): 


intimidation or threatening others. 


2 Cyber bullying is done through electronic means, such as social ( ) 
networking sites 


Cyber bullying is a deliberately aggressive behavior, using 
electronic media for harassment, annoyance, disturbance, ( ) 


Harassment and the threat are of the most important ( ) 
electronic means used in Cyber bulling 

Harassment and blackmailing are forms cyber bulling 
Stealing the person's account in the social networking sites or 

email is one of the risks that we may be exposed to through ( ) 
such media 

Social networking sites help to meet new people you like to ( ) 
see to develop social relationships 

In line with the rules of safe use. you should put an easy 

password passage for your private e-mail, in order to be able ( ) 
to remember, 

E-exception means following a particular person in all means ( ) 
of electronic communication. 


10 Electronic prosecution is intended to send an e-mail carrying a 


threat and holiday for one or more persons. 


Stealthy-mail is considered a form of Cyber bullying. 
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Second: Complete the following table explaining your opinion of each 
of the following words: 


Putting a password that's easy to deduce 
) Someone published his real name, address and telephone ( ) 
number through the electronic media. 
Download any available program to you on the internet 


React angrily to cyber bullying you may be exposed toonthe | (  ) 
internet. 


Delete all messages of threat on networking sites or e-mail 


Third: Everyday situations: 
1) Someone subscribed to one of social networking sites. Whenever he 
contacted a member or tried to conduct an immediate conversation, 
he noticed that no one responded. What happened is considered a 
form of and it's called What can you 
do to face this behavior ....................... eee ? 


You subscribed to one of social networking sites and you were 
surprised that someone was sarcastically speaking about Egypt and 
talking inappropriately about its figures. 

- Select four positive actions by which you can respond to him: 


BP BE BE BE BE BW Be BE BE BW BW BE 
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